Make obsolete function zip-lists work again

* lisp/obsolete/cl-compat.el (zip-lists): Use cl-mapcan instead of
mapcan; mapcan now takes only two parameters.

diff --git a/lisp/obsolete/cl-compat.el b/lisp/obsolete/cl-compat.el
index b2735826ce1e8488b53e7bde9c44447481d86a98..7882705fe9f333f6ec1b16e3bc7429eb0bbee163 100644 (file)
--- a/lisp/obsolete/cl-compat.el
+++ b/lisp/obsolete/cl-compat.el
@@ -142,7 +142,7 @@
     (Values (mapcar* 'list newsyms oldforms) newsyms)))
 
 (defun zip-lists (evens odds)
-  (mapcan 'list evens odds))
+  (cl-mapcan 'list evens odds))
 
 (defun unzip-lists (list)
   (let ((e nil) (o nil))